library(tidyverse)
library(p8105.datasets)
library(plotly)
data("instacart")
instacart_md = instacart %>%
select(product_id, reordered, add_to_cart_order,user_id, order_dow, order_hour_of_day, days_since_prior_order, aisle_id, aisle, department_id, department) %>%
filter(
reordered == "1",
add_to_cart_order %in% 1:40
)
instacart_md %>%
plot_ly(x = ~aisle) %>%
add_histogram(color = ~aisle, colors = "viridis")